home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / ss 1990 demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  752b  |  30 lines
  1. 10 poke53281,0:poke53280,0:print"[147]"chr$(142)chr$(8)
  2. 20 sys57812"ss 1990",8,0:poke780,0:poke781,60:poke782,3:sys65493
  3. 22 fori=1to7:readc%(i):next
  4. 24 data 166,169,122,118,191,123,119
  5. 26 q=rnd(-ti)
  6. 30 fori=1to7
  7. 40 print"[147]"
  8. 50 poke646,rnd(1)*14+2
  9. 52 s$="":forj=1to39:s$=s$+chr$(c%(i)):next
  10. 54 fork=1to21:prints$:next
  11. 60 poke214,rnd(1)*19:print
  12. 70 ta=rnd(1)*19
  13. 80 printtab(ta)"[176][192][192][192][192][192][192][192][192][192][192][174]"
  14. 90 printtab(ta)"[221] screen"i"[157] [221]"
  15. 100 printtab(ta)"[173][192][192][192][192][192][192][192][192][192][192][189]"
  16. 110 sys828,i
  17. 120 next
  18. 130 poke214,22:print
  19. 140 print"[154]press 1[154], 2[154], 3[154], 4[154], 5[154], 6[154], 7,[154] or q[154] to quit"
  20. 150 geta$:ifa$<"1"ora$>"7"anda$<>"q"then150
  21. 160 ifa$="q"then200
  22. 170 sys831,val(a$)
  23. 180 goto130
  24. 200 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  25. 210 ifer<>63thenend
  26. 220 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8,1"
  27. 230 print"run"
  28. 240 poke631,13:poke632,13:poke198,2:end
  29. 10000 open15,8,15,"s0:ss 1990 demo":close15:save"ss 1990 demo",8
  30.